home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 33 / 033.d81 / no-res hangman (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  13.0 KB  |  489 lines
  1. 1 poke53280,7:poke53281,7:poke646,0:d3=1
  2. 2 printchr$(14)chr$(8)
  3. 3 dimht$(40):ht$(1)="":fori=2to40:ht$(i)=ht$(i-1)+"":next
  4. 4 ht$=chr$(145)+chr$(13)
  5. 5 dimvt$(25):vt$(0)="":fori=1to25:vt$(i)=vt$(i-1)+chr$(17):next
  6. 6 s=54272:forx=0to24:pokes+x,0:next:pokes+5,103:pokes+6,167:pokes+24,15
  7. 10 printchr$(147):goto 100
  8. 40 q=0:fa=0:sp=0:g=0
  9. 50 return
  10. 70 :
  11. 71 ht$=chr$(145)+chr$(13)
  12. 72 forpa=0to19:printvt$(1)ht$tab(19-pa)"*"vt$(1);
  13. 73 printht$tab(19+pa)"*";:next
  14. 74 forpa=1to22:printvt$(pa)ht$tab(0)"*"ht$tab(38)"*";
  15. 75 next
  16. 76 forpa=19to0step-1:printvt$(23)ht$tab(19-pa)"*";
  17. 77 printvt$(23)ht$tab(19+pa)"*";:next
  18. 78 printvt$(23);
  19. 80 :
  20. 82 return 
  21. 90 forby=21to2step-1
  22. 95 printvt$(by)"                                    "
  23. 97 next
  24. 99 return
  25. 100 :
  26. 110 dim w$(100),w(100),do$(26)
  27. 120 :
  28. 130 :
  29. 150 restore
  30. 180 fori=1to82:readw$(i):next
  31. 190 :
  32. 200 print"[147]"vt$(23);
  33. 210 fori=1to82
  34. 220 printw$(i)
  35. 230 next
  36. 235 printvt$(0)" "spc(37)" "
  37. 240 forpa=1to1500:next
  38. 250 gosub70
  39. 260 forpa=1to500:next
  40. 300 forby=21to2step-1
  41. 310 printvt$(by)"                                    "
  42. 320 :
  43. 330 next 
  44. 360 :
  45. 365 :
  46. 370 ifvq=1thenprint"[147]";:gosub70
  47. 373 vq=1
  48. 374 print"":printvt$(3)ht$tab(12)"[206]o-[210]es [200]angman"
  49. 375 printht$tab(12)"[163][163] [163][163][163] [163][163][163][163][163][163][163]"
  50. 380 printvt$(7)ht$tab(13): print "[215]hich set?"
  51. 390 printht$tab(49)"1. [210]egular list"
  52. 400 printht$tab(49)"2. [217]oung person's list"
  53. 410 printht$tab(49)"3. [208]hrase list"
  54. 415 printht$tab(49)"[211]. [211]ound effects-";:on d3 gosub453,458
  55. 420 printht$tab(49)"[209] -- [209]uit to [204]oadstar"
  56. 430 printvt$(20):printht$tab(13):print" [208]ick one: ";
  57. 440 poke198,.:wait198,1:getk$:ifk$="q"thenprint"[209]":goto10000
  58. 450 ifk$="s"thenifd3=1thend3=2:goto374
  59. 451 goto455
  60. 453 print"on[146] ":return
  61. 455 ifk$="s"thenifd3=2thend3=1:goto374
  62. 456 goto460
  63. 458 print"off[146]":return
  64. 460 ifval(k$)=.then440
  65. 470 k=val(k$):ifk>3then440
  66. 475 printk$
  67. 480 ifk$=w$(0)then570
  68. 490 w$(0)=k$:k$=""
  69. 500 open8,8,8,"t.hangtext."+w$(0)
  70. 520 input#8,w(0):fori=1tow(0)
  71. 530 input#8,w$(i):next
  72. 540 close8
  73. 550 fori=1tow(0):w(i)=i:next
  74. 560 fori=1tow(0):r1=int(rnd(1)*w(0))+1:t=w(r1):w(r1)=w(i):w(i)=t:next
  75. 570 gosub90
  76. 580 printvt$(10)ht$tab(8)"[210]emember, seven wrong"
  77. 590 printvt$(13)ht$tab(8)"guesses and you lose."
  78. 600 forpa=1to1500:next
  79. 630 forpa=1to40:next
  80. 640 :
  81. 650 :
  82. 660 printvt$(24);:print
  83. 670 foruu=1to23
  84. 680 print:ox=1:d=19-uu:gosub4000
  85. 690 :
  86. 700 next:pokes+4,16
  87. 710 if k$ <  > "" then 730
  88. 720 w(0)=w(0)+1
  89. 730 gosub40
  90. 740 w(0)=w(0)-1
  91. 741 ifw(0)=0thenprintvt$(12);:print"[149][217]ou've used all the words in this list."
  92. 742 ifw(0)=0thenprint"[149][215]e'll now return you to the main menu."
  93. 743 ifw(0)=0thenforpa=1to2000:next:w$(0)="":vq=1:goto360
  94. 750 p$=w$(w(w(0)))
  95. 755 fori=1to26:do$(i)="":next
  96. 760 print"[147]":forda=1tolen(p$)
  97. 761 ps$=mid$(p$,da,1)
  98. 765 ifps$<"a"thenprintvt$(14);:printht$tab(((2*da)+(19-len(p$))));:printps$:goto790
  99. 770 printvt$(14);:printht$tab(((2 * da) + (19 -  len (p$))));: print "[183]"
  100. 780 :
  101. 790 next 
  102. 800 forda=1tolen(p$)
  103. 810 ifmid$(p$,da,1)<>" "then820
  104. 811 printvt$(14);
  105. 815 printht$tab(((2*da)+(20-len(p$))));: print " "
  106. 816 sp=sp+1
  107. 820 ifmid$(p$,da,1)<>"-"then830
  108. 821 printvt$(14);:printht$tab(((2*da)+(20-len(p$)));
  109. 825 print" ":printvt$(13);:printht$tab(((2*da)+( 20-len(p$)));
  110. 826 print"[183]":sp=sp+1
  111. 830 ifmid$(p$,da,1)<>"'"then840
  112. 831 printvt$(14)ht$tab(((2*da)+(20-len(p$)));
  113. 835 print" ":printvt$ (13)ht$tab(((2*da)+20-len(p$)));
  114. 836 print"'":sp=sp+1
  115. 840 ifmid$(p$,da,1)<>"@"then850
  116. 841 printvt$(14)ht$tab(((2*da)+(20-len(p$))));
  117. 842 print",":sp=sp+1
  118. 850 next 
  119. 860 gosub 7080
  120. 870 printvt$(22)"                                       "
  121. 880 forpa=1to100:next
  122. 890 :
  123. 900 :
  124. 910 printvt$(22)ht$tab(13)"[199]uess a letter"
  125. 920 poke198,0:wait198,1:getl1$:ifl1$<"a"orl1$>"z"then920
  126. 930 :
  127. 931 forv=17to23:printvt$(v)ht$tab(0);
  128. 932 print"                                      ": next
  129. 940 l1=asc(l1$):l$=chr$(l1+128)
  130. 950 q=q+1
  131. 960 ifq=1then1060
  132. 970 forz=1toq-1
  133. 980 ifl$=do$(z)thenz=q:next:goto1010
  134. 990 next 
  135. 1000 goto1060
  136. 1010 :
  137. 1020 printvt$(21);
  138. 1030 printht$tab(9)"[149][217]oo-hoo, [197]instein, you": printht$tab(6);
  139. 1040 print "guessed "l$" before.  [212]ry again."
  140. 1050 goto 920
  141. 1060 forx=1tolen(p$)
  142. 1070 ifl$=mid$(p$,x,1)then1180
  143. 1080 next 
  144. 1090 do$(q)=l$
  145. 1100 ifsub=1thensub=0:goto920
  146. 1110 printvt$(20);
  147. 1120 g=g+1
  148. 1130 forpa=1to300:nextpa
  149. 1140 gosub7000
  150. 1150 ifg=7then3400
  151. 1160 printvt$(22)ht$tab(12)"[215]rong.  [212]ry again."
  152. 1170 goto920
  153. 1180 sp=sp+1
  154. 1190 fa=1
  155. 1200 gosub8000
  156. 1210 ifsp=len(p$)then3000
  157. 1220 sub=1
  158. 1230 goto1080
  159. 1240 forpa=1to40:next
  160. 3000 forv=20to23:printvt$(v)ht$tab(0)spc(38):next
  161. 3010 forpause=1to600:next
  162. 3020 ifg=0then3260
  163. 3030 ifg=1then3310
  164. 3040 printvt$(15)ht$tab(10)"[144] [207]kay, you won. [194]ut you"
  165. 3050 printvt$(17)ht$tab(12)"got   wrong first!"
  166. 3060 printvt$(19)ht$tab(8)"[195]are to try another round?"
  167. 3070 printht$tab( 57)"([217]/[206])"
  168. 3072 print"                                      "
  169. 3074 print"                                      "
  170. 3080 forpa=1to40:next
  171. 3090 ox=1:foryup=1tog
  172. 3100 forpa=1to60:next
  173. 3110 :
  174. 3120 printvt$(17)ht$tab(15)chr$(18);yup;:d=yup*2:gosub4000
  175. 3130 next:pokes+4,16
  176. 3140 printvt$(17)ht$tab(15)g;
  177. 3150 :
  178. 3160 poke198,0:wait198,1:getag$:ifag$<>"y"andag$<>"n"then3160
  179. 3165 :
  180. 3170 wi=int(rnd(1)*6)+1
  181. 3180 ifwi=p1orwi=p2orwi=p3then3170
  182. 3190 p3=p2:p2=p1:p1=wi
  183. 3200 on wi gosub 5000,5130,5260,5360,5470,5570
  184. 3220 ifag$="y"then3240
  185. 3230 goto360
  186. 3240 forwp=0to26:do$(wp)="":next
  187. 3250 goto730
  188. 3260 forv=20to23:printvt$(v)ht$tab(0);
  189. 3265 print"                                      ": next
  190. 3268 printvt$(16)ht$tab(5)"[156][193] perfect game! [201]'m impressed!"
  191. 3269 ford=23to-6step-1:ox=1:gosub4000:next:pokes+4,16:forpa=1to300:next
  192. 3270 printht$tab(6)"[201] bet you can't do it again."
  193. 3275 forpa=1to1000:next
  194. 3280 print : printht$tab(4)"[210]eady to give me another chance?"
  195. 3290 printht$tab( 57)"([217]/[206])"
  196. 3300 goto 3150
  197. 3310 printvt$(15)ht$tab( 8)"[207]nly one wrong. [206]ot bad..."
  198. 3320 ford= 23to-6step-1:ox=1:gosub4000:next:pokes+4,16:forpa=1to800:next
  199. 3330 print : printht$tab(14)"[198]or a human."
  200. 3340 forpa=1to600:next
  201. 3350 print : printht$tab( 6)"[212]he next round shall be mine."
  202. 3360 forpa=1to300:next:print
  203. 3370 printht$tab( 6)"[193]re you prepared to continue?"
  204. 3380 printht$tab(57): print "([217]/[206])"
  205. 3390 goto 3150
  206. 3400 forv=20to23:printvt$(v);:printht$tab(0);
  207. 3405 print"                                      ": next
  208. 3410 forpa=1to300:next
  209. 3420 iffa=0then3560
  210. 3430 printvt$(15)ht$tab(2)"[211]orry, but you've run out of guesses."
  211. 3440 ford=-6to23:ox=1:gosub4000:next:pokes+4,16:forpa=1to300:next
  212. 3450 print:printht$tab(8)"[200]ere's the entire word..."
  213. 3460 forpa=1to300:next
  214. 3470 forbit=1tolen(p$)
  215. 3480 :
  216. 3490 printvt$(13)ht$tab(((2*bit)+(19-len(p$))))""mid$(p$,bit,1)
  217. 3500 ox=1:d=25-bit*2:gosub4000:forpa=1to50:next
  218. 3503 printvt$(13)ht$tab(((2*bit)+(19-len(p$))))mid$(p$,bit,1)
  219. 3505 next:pokes+4,16
  220. 3510 forpause=1to1300:next
  221. 3520 iffa=0then3610
  222. 3530 printvt$(19)ht$tab(7)"[195]are to revenge your death?"
  223. 3540 printht$tab(58)"([217]/[206])"
  224. 3550 goto3150
  225. 3560 printvt$(15)ht$tab(3)"[215]ow! [206]ot even one right! [193]re you"
  226. 3570 print " sure you've plaved this game before?"
  227. 3580 ford=-6to23:ox=1:gosub4000:next:pokes+4,16:forpa=1to1000:next
  228. 3590 print:print " [193]nyway, here's what you didn't get..."
  229. 3600 goto3460
  230. 3610 forv=15to19:printvt$(v)ht$tab(0);
  231. 3615 print"                                      ": next 
  232. 3620 printvt$(15)"    [204]ook, [201] know this probably isn't"
  233. 3630 print "    a good time, what with you losing"
  234. 3640 print "     so bad, but [201] was wondering if"
  235. 3650 print "      you'd like to play again...?"
  236. 3660 goto 3540
  237. 4000 ifd3=2thenreturn
  238. 4001 d2=24-d
  239. 4005 ifox<>1 then4060
  240. 4006 ox=0
  241. 4050 pokes+4,17
  242. 4060 pokes+1,d2
  243. 4070 pokes+1,d2*4
  244. 4075 ifd<>18thenreturn
  245. 4080 pokes+4,16
  246. 4090 return
  247. 5000 :
  248. 5110 print"[147]";
  249. 5120 return 
  250. 5130 :
  251. 5140 ford1=0to12
  252. 5150 iv$=chr$(18)
  253. 5160 gosub5210
  254. 5170 iv$=""
  255. 5180 gosub5210
  256. 5190 next 
  257. 5200 return 
  258. 5210 printvt$(d1)iv$"                                       "
  259. 5230 printvt$(23-d1)iv$"                                       "
  260. 5250 return 
  261. 5260 :
  262. 5270 fori1=0to30step10
  263. 5280 fori=1to23
  264. 5290 s1$="          ":ifi1=30thens1$=left$(s1$,len(s1$)-1)
  265. 5300 printvt$(i)ht$tab(i1)chr$(18)s1$
  266. 5310 printvt$(i-1)ht$tab(i1)s1$
  267. 5320 next 
  268. 5330 printvt$(23-(abs(i1=31)*2))ht$tab(i1)"          "
  269. 5340 next 
  270. 5350 return 
  271. 5360 :
  272. 5370 forj1=0to2
  273. 5380 forj=23to0step-1
  274. 5390 :
  275. 5400 printvt$(j)ht$tab(24-(j1*12))chr$(18)"               ";
  276. 5410 :
  277. 5420 printvt$(j+1)ht$tab(24-(j1*12))"               ";
  278. 5430 next 
  279. 5440 printvt$(0)ht$tab(24-(j1*12))"               "
  280. 5450 next 
  281. 5460 return 
  282. 5470 :
  283. 5480 :
  284. 5490 :
  285. 5500 forkk=23to1step-1
  286. 5510 printvt$(kk)"[144]***************************************"
  287. 5520 forpa=1to10:next
  288. 5530 printvt$(kk);
  289. 5535 print"                                       "
  290. 5540 :
  291. 5550 next 
  292. 5560 return 
  293. 5570 :
  294. 5580 forl=0to11
  295. 5590 forl1=30to0step-10
  296. 5595 pl$="[149]++++++++++":ifl1=30thenpl$=left$(pl$,9)
  297. 5600 printvt$(12+l)ht$tab(l1)pl$
  298. 5610 printvt$(12-l)ht$tab(l1)pl$
  299. 5620 printvt$(12+l)ht$tab(l1);:fori=1to39-l1:print" ";:next
  300. 5630 printvt$(12-l)ht$tab(l1);:fori=1to39-l1:print" ";:next
  301. 5640 forpa=1to30:next
  302. 5650 next 
  303. 5660 next 
  304. 5670 return 
  305. 7000 :
  306. 7010 wh=asc(l$)-64-128
  307. 7020 ifwh>17thenwh=((wh-18)*4)+164
  308. 7030 ifwh>9andwh<80thenwh=((wh-10)*4)+86
  309. 7040 ifwh<40thenwh=wh*4
  310. 7050 printvt$(3)ht$tab(wh-2)chr$(18)" "l$" ";
  311. 7060 return 
  312. 7070 :
  313. 7080 printvt$(3)"   [193]   [194]   [195]   [196]   [197]   [198]   [199]   [200]   [201]": print
  314. 7082 print "     [202]   [203]   [204]   [205]   [206]   [207]   [208]   [209]  ": print
  315. 7084 print "   [210]   [211]   [212]   [213]   [214]   [215]   [216]   [217]   [218]"
  316. 7090 printvt$(8)ht$tab(3)"[144][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  317. 7095 return 
  318. 8000 :
  319. 8010 printvt$(20);
  320. 8020 ifsp=len(p$)then8040
  321. 8030 printvt$(22)ht$tab(14)"   [210]ight!   "
  322. 8040 :
  323. 8050 j1=asc(l$)-64-128
  324. 8060 ifj1>17thenj1=((j1-18)*4)+4:goto8310
  325. 8070 ifj1>9thenj1=((j1-10)*4)+6:goto8460
  326. 8080 j1=j1*4
  327. 8085 j1=j1-1
  328. 8090 printvt$(3)ht$tab(j1-1)chr$(18)" "l$" "
  329. 8100 ox=1:d=8:gosub4000
  330. 8110 forpa=1to32:next
  331. 8120 printvt$(3)ht$tab(j1-1)" "l$" "
  332. 8130 gosub4000
  333. 8140 printvt$(2)ht$tab(j1+40)l$:printvt$(2)
  334. 8145 printht$tab(j1+80)" "
  335. 8150 printvt$(2)ht$tab(j1)l$:printvt$( 2)ht$tab(j1+40);
  336. 8155 print" ":d=7
  337. 8160 forj2=j1-1to1step-1
  338. 8170 printvt$(2)ht$tab(j2)l$;" ":gosub4000: next
  339. 8180 forj3=2to9
  340. 8190 printvt$(j3+1)ht$tab(1)l$: printvt$(j3)ht$tab(1);
  341. 8195 print" ":d=j3+6:gosub4000:next:d=15
  342. 8200 forj4=1to((2*x)+20-len(p$))-2
  343. 8210 printvt$(10)ht$tab(j4)" "l$:gosub4000:next
  344. 8220 forj5=10to12
  345. 8230 printvt$(j5+1)ht$tab(j4)l$:printvt$(j5)ht$tab(j4);
  346. 8235 print" ":d=j5+6:gosub4000:next
  347. 8240 printvt$(13)ht$tab(j4-1)chr$(18);" "l$" "
  348. 8250 d=23:gosub4000
  349. 8260 forpa=1to32:next
  350. 8270 gosub4000
  351. 8280 printvt$(13)ht$tab(j4-1)" "l$" "
  352. 8290 :
  353. 8300 ifsp<>len(p$)thenprintvt$(22)ht$tab(14)"[206]ext [199]uess?"
  354. 8302 return
  355. 8310 :
  356. 8320 printvt$(7)ht$tab(j1-2)chr$(18)" "l$" "
  357. 8330 ox=1:d=12:gosub4000
  358. 8340 forpa=1to32:next
  359. 8350 printvt$(7)ht$tab(j1-2)" "l$" "
  360. 8360 gosub4000
  361. 8370 printvt$(6)ht$tab(j1-1)l$:printvt$(7);
  362. 8371 printht$tab(j1-1)" ":d=11:gosub4000
  363. 8380 :
  364. 8385 :
  365. 8390 forj2=j1-1to36
  366. 8400 printvt$(6)ht$tab(j2)" "l$:gosub4000:next
  367. 8410 forj3=6to2step-1
  368. 8420 printvt$(j3)ht$tab(37)l$:printvt$(j3+1);
  369. 8425 printht$tab(37)" ":d=j3+5:gosub4000:next:d=7
  370. 8430 forj4=37to1step-1
  371. 8440 printvt$(2)ht$tab(j4)l$" ":gosub4000:next
  372. 8450 goto 8180
  373. 8460 :
  374. 8465 j1=j1-1
  375. 8470 printvt$(5)ht$tab(j1-1)chr$(18)" "l$" "
  376. 8480 ox=1:d=10:gosub4000
  377. 8490 forpa=1to32:next
  378. 8500 printvt$(5)ht$tab(j1-1)" "l$" "
  379. 8510 gosub4000
  380. 8520 forj9=5to2step-1
  381. 8530 printvt$(j9)ht$tab(j1)l$:printvt$(j9+1)ht$tab(j1);
  382. 8535 print" ":d=j9+5:gosub4000:next:d=7
  383. 8540 forj8=j1to1step-1
  384. 8550 printvt$(2)ht$tab(j8)l$" ":gosub4000:next
  385. 8560 goto 8180
  386. 10000 :
  387. 10010 :
  388. 10020 print"[147]";
  389. 10030 printvt$(3)ht$tab(5)"[197]ncounter heavy turbulence with"
  390. 10040 printvt$(20)ht$tab(8)"making a mess since 1982"
  391. 10045 printvt$(22)"         [208]ress any key to quit."
  392. 10050 c$ = "":b$ = "":s$ = " "
  393. 10070 a$="[199][213][193][206][207][218][193][208] [211][207][198][212][215][193][210][197]"
  394. 10075 c$="                 "
  395. 10090 i=5:j=1:k=1:l=1:i2=6:k2=1
  396. 10100 printvt$(i)ht$(k)a$
  397. 10110 printvt$(i2)ht$(k2)c$
  398. 10115 i2=i:k2=k
  399. 10120 i=i+j:if(i=5)or(i=18)thenj=j*-1
  400. 10130 k=k+l:if(k=1)or(k=23)thenl=l*-1
  401. 10140 getkb$:ifkb$=""then10100
  402. 10150 printvt$(i2)ht$(k2)c$:printvt$(11)ht$(12)a$
  403. 10165 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  404. 10167 ifer<>63thenend
  405. 10170 print"[147]";:load"hello connect",8
  406. 20000 :
  407. 20001 data".                                     ."
  408. 20002 data".                                     ."
  409. 20003 data".                                     ."
  410. 20004 data".                                     ."
  411. 20005 data".                                     ."
  412. 20006 data".                                     ."
  413. 20007 data".                                     ."
  414. 20008 data".                                     ."
  415. 20009 data"..                                   .."
  416. 20010 data"..                                   .."
  417. 20011 data"..                                   .."
  418. 20012 data"...                                 ..."
  419. 20013 data"...                                 ..."
  420. 20014 data"...                                 ..."
  421. 20015 data"....                               ...."
  422. 20016 data"....                               ...."
  423. 20017 data".....                             ....."
  424. 20018 data".....                             ....."
  425. 20019 data"......                           ......"
  426. 20020 data"......                           ......"
  427. 20021 data".......                         ......."
  428. 20022 data"........                       ........"
  429. 20023 data".........                     ........."
  430. 20024 data"..........                   .........."
  431. 20025 data"...........                 ..........."
  432. 20026 data".............             ............."
  433. 20027 data"...............         ..............."
  434. 20028 data".................     ................."
  435. 20029 data"................... ..................."
  436. 20030 data"......................................."
  437. 20031 data"......................................."
  438. 20032 data"......................................."
  439. 20033 data". ................................... ."
  440. 20034 data". ................................... ."
  441. 20035 data".  .................................  ."
  442. 20036 data".  .................................  ."
  443. 20037 data".   ...............................   ."
  444. 20038 data".   ...............................   ."
  445. 20039 data".    .............................    ."
  446. 20040 data".     ...........................     ."
  447. 20041 data".      .........................      ."
  448. 20042 data".       .......................       ."
  449. 20043 data".        .....................        ."
  450. 20044 data".         ...................         ."
  451. 20045 data".          .................          ."
  452. 20046 data".           ...............           ."
  453. 20047 data".            .............            ."
  454. 20048 data".             ...........             ."
  455. 20049 data".              .........              ."
  456. 20050 data".               .......               ."
  457. 20051 data".                .....                ."
  458. 20052 data".                 ...                 ."
  459. 20053 data".                  .                  ."
  460. 20054 data".                                     ."
  461. 20055 data".                                     ."
  462. 20056 data".                                     ."
  463. 20057 data".                                     ."
  464. 20058 data".                                     ."
  465. 20059 data".                                     ."
  466. 20060 data"......................................."
  467. 20061 data".                                     ."
  468. 20062 data". [200]  [200]  [193][193]  [206]  [206]  [199][199]  [205]   [205]  [193][193]  [206]  [206] ."
  469. 20063 data". [200]  [200] [193]  [193] [206][206] [206] [199]  [199] [205][205] [205][205] [193]  [193] [206][206] [206] ."
  470. 20064 data". [200][200][200][200] [193]  [193] [206][206][206][206] [199]    [205] [205] [205] [193]  [193] [206][206][206][206] ."
  471. 20065 data". [200]  [200] [193][193][193][193] [206] [206][206] [199] [199][199] [205] [205] [205] [193][193][193][193] [206] [206][206] ."
  472. 20066 data". [200]  [200] [193]  [193] [206]  [206] [199]  [199] [205]   [205] [193]  [193] [206]  [206] ."
  473. 20067 data". [200]  [200] [193]  [193] [206]  [206]  [199][199]  [205]   [205] [193]  [193] [206]  [206] ."
  474. 20068 data".                                     ."
  475. 20069 data".                                     ."
  476. 20070 data".                 by                  ."
  477. 20071 data".                                     ."
  478. 20072 data".                                     ."
  479. 20073 data".                                     ."
  480. 20074 data".          [202]eff [211]. [212]ruelsen           ."
  481. 20075 data".                                     ."
  482. 20076 data".                                     ."
  483. 20077 data".                                     ."
  484. 20078 data".      ([195])1985 [199]uanozap [211]oftware      ."
  485. 20079 data".                                     ."
  486. 20080 data".     [206]ot a public domain program     ."
  487. 20081 data".                                     ."
  488. 20082 data"......................................."
  489.